C
C     THIS COMMON BLOCK MUST BE PRESENT IN ALL SUBROUTINES.
C
      PARAMETER(ID=64,JD=2500,KD=82,MAXKI=82,NRS=21,IG1=32,
     &          JG1=1000,KG1=41)
C
C     NOTE:   MAXKI  SHOULD BE AT LEAST EQUAL TO THE MAXIMUM OF ID and KD
C
      PARAMETER(IG2=25,JG2=500,KG2=21,JG3=100,NCWL=100,NBLED=25)
C
C******************************************************************************
C
      COMMON/BKUTIL/
     &         NAME(18),STORE(ID,JD,KD),TEMP1(ID,JD,KD),TEMP2(ID,JD,KD),
     &         TEMP3(ID,JD,KD),TEMP4(ID,JD,KD),STORE2(ID,JD,KD),
     &         SGEN(ID,JD,KD),PI,DEGRAD,RADDEG
C
      COMMON/BKINTG/
     &  IM,JM,KM,IMM1,JMM1,KMM1,IMM2,JMM2,KMM2,IN_VTAN,INSURF,NOSECT,
     &  NSECS_IN,IN_VR,NSTEPS_MAX,NSTEP,ISMTH,JLEP1,IPOUT,ITIMST,
     &  IF_RESTART,NSTART,IMID,KMID,IBOUND,IOUT(20),KOUT(MAXKI),NOUT(5),
     &  JLE(MAXKI),JTE(MAXKI),IFSHROUD,IFCOOL,IFBLEED,KIN,IFPRINT,IFEND,
     &  NSFEXIT,NSECS_ROW,IN_PRESS,IF_WAVE
C
      COMMON/BKGEOM/
     & X(JD,KD),R(JD,KD),RSURF(JD,KD),SMERID(JD,KD),XSURF(JD,KD),
     & DS(JD,KD),RAVG_CELL(JD,KD),RCYL(MAXKI),DR(JD,KD),THETA(ID,JD,KD),
     & DX(JD,KD),RT_UPP(JD,KD),RT_THICK(JD,KD),RT_PITCH(JD,KD),
     & RTHETA(ID,JD,KD),BETAUP(NRS,KD),BETADWN1(NRS,KD),
     & BETADWN2(NRS,KD),IF_ANGLES(NRS),IF_REDESIGN(NRS),
     & FRACN_SPAN(KD),ANGL_UP(KD),ANGL_DWN1(KD),ANGL_DWN2(KD)
C
      COMMON/BKAREA/
     & ABX(ID,JD,KD),ABR(ID,JD,KD),AQX(ID,JD,KD),
     & AQR(ID,JD,KD),ASX(ID,JD,KD),ASR(ID,JD,KD),ABT(JD,KD),
     & VOL(ID,JD,KD),VOLOR(ID,JD,KD),WRABT(JD,KD),AQEXIT,
     & AQTOT(ID,JD,KD),ABTOT(ID,JD,KD)
C
      COMMON/BKFLUX/
     &      XFLUX(ID,JD,KD),TFLUX(ID,JD,KD),RFLUX(ID,JD,KD),
     &      STEP(ID,JD,KD),BSTEP(ID,JD,KD),RSTEP(ID,JD,KD),
     &      SOURCE(ID,JD,KD)
C
      COMMON /BKFLOW/
     &      FLOWX(ID,JD,KD),FLOWR(ID,JD,KD),FLOWT(ID,JD,KD),SPECFLOW
C
      COMMON/BKSEC/
     &         VX(ID,JD,KD),VR(ID,JD,KD),VT(ID,JD,KD),PEFF(ID,JD,KD),
     &         T_STATIC(ID,JD,KD),WT(ID,JD,KD)
C
      COMMON/BKPRIM/
     &  RO(ID,JD,KD),P(ID,JD,KD),ROE(ID,JD,KD),ROVX(ID,JD,KD)
     & ,ROVR(ID,JD,KD),ROVT(ID,JD,KD),RORVT(ID,JD,KD),HO(ID,JD,KD),
     &  ROSUB(ID,JD,KD),ROWT(ID,JD,KD)
C
      COMMON/BKFFLO/
     &   IN_FLOW,FLOWIN,RFLOW,FLOW(JD)
C
      COMMON/BKFRAC/
     &  FR(MAXKI),FP(ID),FR_IN(MAXKI),FKU(KD),FKD(KD),FU(ID),
     &  FD(ID),BSSIN(MAXKI),BSCOS(MAXKI),BRSIN(MAXKI),BRCOS(MAXKI),
     &  FMUP(JD,KD),FMDN(JD,KD),FACUP(JD),FACDWN(JD),FSPAN(KD),QSPAN(KD)
C
      COMMON/BKSMTH/
     &          SFTIN,SFT,SFT1,SFTH,SFXIN,SFX,SFX1,SFXH,SFXHM1,
     &          SFX14,SFX15,SFEX1,SFEXH,SFXB,SFXB1,SFXBH,
     &          FAC_4TH,RF,RFI,RFF,SFEXIT,NCHANGE,RSMTH,NRSMTH,
     &          F1,F2,F2EFF,F3,FP_XTRAP,FRACWAVE
C
      COMMON/BKLOSS/
     &  FRACPB,FRACPW,REYNO,VISLAM,REL,ILOS,NLOS,
     &  CF,REL1,XFORCE(ID,JD,KD),RFORCE(ID,JD,KD),TFORCE(ID,JD,KD),
     &  QSOURCE(ID,JD,KD),VLAM(MAXKI),VTURB(MAXKI),FKLAM(NRS,MAXKI),
     &  FKTURB(NRS,MAXKI),FILAM(NRS,MAXKI),FITURB(NRS,MAXKI),
     &  FIWAKE(NRS,MAXKI),FIUP(NRS,MAXKI),FTRANS,JTRAN_I1(MAXKI),
     &  JTRAN_IM(MAXKI),JTRAN_K1(MAXKI),JTRAN_KM(MAXKI),XLLIM_I1(NRS),
     &  XLLIM_IM(NRS),XLLIM_K1(NRS),XLLIM_KM(NRS),XLLIM_DWN(NRS),
     &  XLLIM_UP(NRS),CFWALL,FMIXUP,FACMIXUP,NMIXUP,YPLUSWALL,I_ROUGH,
     &  TURBVIS_LIM,ROUGH_H(NRS),ROUGH_T(NRS),ROUGH_L(NRS),ROUGH_U(NRS),
     &  REYNOLDS(NRS),CHORD(NRS),ROVEXIT(NRS),VISCOSY(NRS),
     &  RF_VIS,RF_VIS1,DPDS_CELL(ID,JD,KD)
C
      COMMON/BKINPT/
     &  PO1(MAXKI),TO1(MAXKI),RPO1(MAXKI),BS(MAXKI),BR(MAXKI),
     &  VM1(MAXKI),PD(MAXKI),VTIN(MAXKI),PLIM(MAXKI),PDOWN_HUB,
     &  PDOWN_TIP,IF_REPEAT,NINMOD,RFINBC,THROTTLE_EXIT,PLATE_LOSS,
     &  THROTTLE_PRES,THROTTLE_MAS,RFTHROTL,RFTHROTL1,F_PDOWN
C
      COMMON/BKMGRD/
     &  IR,JR,KR,IRBB,JRBB,KRBB,JSBLK(JD)
     & ,FBLK1,FBLK2,FBLK3,IB1(MAXKI),IB2(MAXKI),KB1(MAXKI),KB2(MAXKI),
     &  JB1(JD),JB2(JD),NIB1,NIB2,NJB1,NJB2,NKB1,NKB2,NSBLK,
     &  STEP1(IG1,JG1,KG1),STEP2(IG2,JG2,KG2),STEPSBK(JG3),AVG_CHG(NRS),
     &  AVG_BLK(NRS)
C
      COMMON/BKGAS/
     &  CP,GA,FGA,GA1,RGAS,RCP,CV,RCV,RFGA,PRANDTL,FTCOND,HOREF,
     &  IFGAS,CP1,CP2,CP3,CV1,TREF,HREF,
     &  HT1,HT2,HT3,HT4,
     &  ET1,ET2,ET3,ET4,EREF,
     &  ALPHA,R_ALPHA,BETA1,BETA2,BALPHA1,BALPHA2,
     &  EPS0,EPS1,EPS2,
     &  GAGAS,FGAGAS,GA1GAS
C
      COMMON/BKCNTL/
     &          CFL,W,FUP,RFUP,DAMP,DAMPIN,FVMIN,CONLIM,RPM,ROVM_REF,
     &          VSOUND,RO_REF,PO_REF,DP_DRO,RF_PTRU,RF_PTRU1,DENSTY,
     &          MACHLIM,RFIN,RFIN1,RFIN2,VLIMIT(NRS),RF_VSOUND,
     &          RF_VSOUND1,VS_VMAX,ROLIMIT(NRS),ROLIM,ROMIN,
     &          ROELIMIT(NRS)
C
      COMMON /BKSTAG/
     &  NROWS,IND(JD),INDLE(JD),INDMIX(JD),NBLADE(JD),
     &  WRAD(JD),PGUESS(JD),RATPIT(JD),NROW(JD),INDMID(JD),NRWSM1,
     &  FPOLY(NRS,MAXKI),INDTE(JD),JMIX(NRS),JSTART(NRS+1),IFMIX,RFMIX,
     &  FSMTHB,FMACH,JLED(NRS),FACXDIF(JD),ALPHA_S(ID,KD,NRS),
     &  NSTAGE(NRS+1),JSTG_START(NRS),JSTG_END(NRS),NSTAGES,
     &  IF_CUSP(NRS),NUP_I1(NRS),NUP_IM(NRS),N_WAKE(NRS),SEP_THIK(NRS),
     &  SEP_DRAG(NRS),FEXTRAP,FANGLE,UBLADE(JD,KD)
C
      COMMON/BKTIP/
     &         KTIPS(MAXKI),KTIPE(MAXKI),FTHICK(NRS,MAXKI),WHUB(JD),
     &         WTIP(JD),KS1(MAXKI),KS2(MAXKI),
     &         FRACTIP(NRS),FRACTIP1(NRS),FRACTIP2(NRS)
C
      COMMON/BKDIFF/
     &           DRO(ID,JD,KD),DROE(ID,JD,KD),DROVX(ID,JD,KD),
     &           DROVR(ID,JD,KD),DRORVT(ID,JD,KD)
C
      COMMON/BKDIST/
     & FTL(ID,KD),FBL(ID,KD),FTR(ID,KD),FBR(ID,KD)
C
      COMMON/BKSHROUD/
     &  KSHROUD(NRS),JLEAKS(NRS),JLEAKE(NRS),JLKINS(NRS)
     & ,JLKINE(NRS),SEALGAP(NRS),NSEAL(NRS),CFSHROUD(NRS),CFCASING(NRS)
     & ,PITCHIN(NRS),AS(ID,JD),WCASE(NRS),POAX(ID,JD),TOAX(ID,JD)
     & ,SHRDFLOW(JD),SLEAK(NRS),SWORK(NRS),SWORKTOT
C
      COMMON/BKSHRDFLUX/
     & SHROUDGR(ID,JD),SHROUDHO(ID,JD)
     & ,SHROUDVX(ID,JD),SHROUDRVT(ID,JD),SHROUDVR(ID,JD)
C
      COMMON/BKCOOL/
     & CFLOWI1(JD,KD),CFLOWIM(JD,KD),CFLOWK1(ID,JD),CFLOWKM(ID,JD),
     & VXCWLI1(JD,KD),VXCWLIM(JD,KD),VXCWLK1(ID,JD),VXCWLKM(ID,JD),
     & VRCWLI1(JD,KD),VRCWLIM(JD,KD),VRCWLK1(ID,JD),VRCWLKM(ID,JD),
     & HOCWLI1(JD,KD),HOCWLIM(JD,KD),HOCWLK1(ID,JD),HOCWLKM(ID,JD),
     & RVTCWLI1(JD,KD),RVTCWLIM(JD,KD),RVTCWLK1(ID,JD),RVTCWLKM(ID,JD),
     & WRAD_COOLB(NCWL),WRAD_COOLW(NCWL),
     & IC(NCWL),JCBS(NCWL),JCBE(NCWL),KC(NCWL),KCBS(NCWL),KCBE(NCWL),
     & JCWS(NCWL),JCWE(NCWL),ICWS(NCWL),ICWE(NCWL),NCOOLB,NCOOLW,
     & SUMCWL(JD),TORELB(NCWL),TORELW(NCWL),TCOOL_MIN,
     & TSTAT_EJECTB(NCWL),TSTAT_EJECTW(NCWL),PO_EJECTB(NCWL),
     & PO_EJECTW(NCWL)
C
      COMMON/BKCWL/
     & CFLOWB(NCWL),CFLOWW(NCWL),ACOOLB(NCWL),ACOOLW(NCWL),
     & TOCOOLB(NCWL),TOCOOLW(NCWL),POCOOLB(NCWL),POCOOLW(NCWL),
     & MACHCOOL(NCWL),XANGLEB(NCWL),SANGLEB(NCWL),SANGLEW(NCWL),
     & TANGLEW(NCWL),RVT_IN_B(NCWL),RVT_IN_W(NCWL),WPUMP(NRS)
C
      COMMON/BKATOT/
     & ATOTK1(ID,JD),ATOTKM(ID,JD),ATOTI1(JD,KD),ATOTIM(JD,KD)
C
      COMMON/BKBLEED/
     & BLFLOWI1(JD,KD),BLFLOWIM(JD,KD),BLFLOWK1(ID,JD),BLFLOWKM(ID,JD),
     & SUMBLEED(JD)
C
      COMMON/BKOUT/
     &      PO_OUT_AVG(KD),TO_OUT_AVG(KD),YAW_OUT_AVG(KD),
     &      PITCH_OUT_AVG(KD),VT_OUT_AVG(KD),TO_IN_MID,PO_IN_MID,
     &      VT_IN_MID,YAW_IN_MID,PITCH_IN_MID
C
      COMMON/BKNEWLOS/
     &       DIST_MIN(ID,JD,KD),XLENGTH(ID,JD,KD),
     &       XLIMIT(JD),XLLIM_IN(NRS),XLLIM_LE(NRS),
     &       XLLIM_TE(NRS),XLLIM_DN(NRS),VISC_LAM(ID,JD,KD),
     &       VISC_RAT(ID,JD,KD),FST_RAT(ID,JD,KD),FSTURB(NRS),
     &       VORT_MAX, Y_PLUS(ID,JD,KD),YPLAM,YPTURB,YPLUS_K1(ID,JD),
     &       YPLUS_KM(ID,JD),YPLUS_I1(JD,KD),YPLUS_IM(JD,KD)
C
      COMMON/BKSPALOS/
     &       TRANS_KVIS(ID,JD,KD), TRANS_DYN_VIS(ID,JD,KD),
     &       DYN_VIS_ML(ID,JD,KD), TRANS_VORT(ID,JD,KD),
     &       DEL_DYNVIS(ID,JD,KD), TURB_FORCE, ROAVG_CELL(ID,JD,KD),
     &       ABS_VORT(ID,JD,KD), GRAD_TVIS(ID,JD,KD),T_SOURCE(ID,JD,KD),
     &       DWALLSQ(ID,JD,KD), TVISGRADX(ID,JD,KD),TVISGRADR(ID,JD,KD),
     &       TVISGRADT(ID,JD,KD),TURBVIS_DAMP(NRS),VISC_TURB(ID,JD,KD),
     &       FAC_ST0, FAC_ST1, FAC_ST2, FAC_ST3, FAC_STMIX, FAC_SFVIS,
     &       FAC_VORT,FAC_PGRAD,SPAREVAR(ID,JD,KD)
C
      COMMON/BKTFLOW/
     &       SFPBLD,SFPBLD1,NSFPBLD,Q3DFORCE,AVGPBLADE(JD),
     &       PBLADE(JD,KD),ROVAR_M1(JD,KD),BFORCE_X(JD,KD),
     &       BFORCE_R(JD,KD),BFORCE_T(JD,KD),BFORCE_Q(JD,KD),SFACPB(JD),
     &       DEVN_ANGL(NRS,KD),EXIT_ANGL(NRS,KD),FRAC_SPAN(NRS,KD),
     &       EXANG(KD),ALPHA_CENT(JD,KD),NANGLES(NRS),IF_DEVN(NRS),
     &       CENT_ANGL(JD),S_DIST(JD)
C
      CHARACTER*72  TITLE, ROWTYP, DUMMY_INPUT, DUMMY
      CHARACTER*1   ANGL_TYP(NRS)
C
      COMMON/BKCHAR/ TITLE, ROWTYP, DUMMY_INPUT, DUMMY,ANGL_TYP
C
      REAL MACHLIM, MACHREL, MACHCOOL
C
